home *** CD-ROM | disk | FTP | other *** search
/ Cocktail / Cocktail CD.iso / scripts / program1.rexx < prev    next >
OS/2 REXX Batch file  |  1997-09-16  |  390b  |  20 lines
  1. /* Dienste1 */
  2.  
  3. OPTIONS RESULTS
  4.  
  5. ADDRESS DataBase
  6.  
  7.   ADDRESS DataBase                 
  8.   FindBase 'Kunden.db'
  9.   newbase = RC                     
  10.   IF newbase > 0 THEN              
  11.     Base newbase                   
  12.   ELSE                             
  13.     DO                             
  14.     Base 2
  15.     OPEN "Cocktail-CD:Zutaten/Zutaten.db"
  16.   END
  17.   ADDRESS                          
  18. END
  19.  
  20.